home *** CD-ROM | disk | FTP | other *** search
/ Backpacker 1 (Norsk) / backpacker.iso / pc / data / misc / start.dxr / 00003_Init new player.ls < prev    next >
Encoding:
Text File  |  1995-02-28  |  1.1 KB  |  44 lines
  1. on enterFrame
  2.   global SNAME, UNAME, TWNS, JOBS, ACTION, DEST_LQDS, KAT_LQDS, RANS, WANS, DTQR, DTQW, KARM, HOTL, SEX, CASH, YY, MM, DD, DAYS, DEPDD, AFDD, TRAVEL, PHONE_M, AUKT_JOBS
  3.   set SNAME to "Etternavn"
  4.   set UNAME to "Fornavn"
  5.   set SEX to 0
  6.   set CASH to 12000
  7.   set TWNS to list()
  8.   set ACTION to list()
  9.   set DEST_LQDS to list(0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0)
  10.   set KAT_LQDS to list(0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0)
  11.   set JOBS to list()
  12.   set AUKT_JOBS to list()
  13.   set HOTL to 0
  14.   if the machineType < 256 then
  15.     openXLib("BPXlib.MAC")
  16.     set xTemp to xTime(mnew)
  17.     set YY to xTemp(mGetYear)
  18.     set MM to xTemp(mGetMonth)
  19.     set DD to xTemp(mGetDay)
  20.     xTemp(mdispose)
  21.     closeXLib("BPXlib.MAC")
  22.   else
  23.     if the machineType = 256 then
  24.       PC_dateH()
  25.     end if
  26.   end if
  27.   set DTQR to 0
  28.   set DTQW to 0
  29.   set LQNO to 0
  30.   set RANS to 0
  31.   set WANS to 0
  32.   set KARM to 0
  33.   set DAYS to 1
  34.   set DEPDD to 0
  35.   set AFDD to 0
  36.   set TRAVEL to 0
  37.   set PHONE_M to 2000 + random(2000)
  38. end
  39.  
  40. on exitFrame
  41.   preLoad(the frame, label("PP_Write"))
  42.   puppetSound(0)
  43. end
  44.